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FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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is COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 
® 
® 
4 
® 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE  * 
is INCLUSION GF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE x 
iw COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
it TRANSFERRED. . 
* 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. ® 
® 
® 
® 
® 
® 
® 


'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


MEWN OS OONAUESWN OC OODNAOUEWN (OO ONOUS Wh 


WIN AIANIAAI NIA PI DONO NU NINUNONUPY 2 OO 
WAN AWN AANA AIR ROPONIPONINONPNYDY) 2 2 OO SS SHS QDOOOOCOCOCOCO 


WR OOONAULS WN $0 ODNAUESWN CO ODNAUS WN O OONOUS WH 


ee a 8 ee hs ss Ss tS SS Ss HS ss ss Ss ss ss ss ss 2 2 2 OOO 


00 '® 
0 '® 
o5 Vee RRR ORR AAA EAA EAA AAA AAAERTAAERE EES 
00 ! 
00 
00 !++ 
88 FACILITY: FORTRAN 1/0 
4 ABSTRACT: 
00 ‘ This module contains the Global dispatch tables bios the UDF (user data 
36 00 ! formatter) level and REC (record) level for FORTR 
7 00 ; In addition it contains a routine which signals oe for invalid 
38 00 : statement types. 
39 003 : 
40 004 ' ENVIRONMENT: 
41 004 i ; 
ri Bae AST reentrant - all OWN storage is read only 
‘3 bead AUTHOR: Donald G. Petersen . CREATION DATE: 07-Dec-78 
46 0046 ! MODIFIED BY: 
47 0047 ‘ 
48 0048 : DGP,06-Dec-78 : VERSION 1-001 
49 0049 ! 1-001 - original. DGP 06-Dec-78 
50 0050 ‘ 1-00 - Add some functionality to OTS$$SIGDIS fm. Pa Og-see~7e 
51 0051 ! 1-005 - Chance gis atch tables to Longwords. a 
52 003¢ ! 1-004 = Add Basic READ to dispatch tables. Dep” 
53 005 ! 1-005 = Change FORLNK require file to OTSLNK. 1B Bs eote-7 8 
54 0054 ! 1-006 - Signal the proper errors in the error routine. DGP 18-Jan-79 
55 0055 ' 1-007 = Change file name to OTSDISPAT to aaree_¥ with RTL standards 
56 0056 } and internal comments. JBS 27-JA 
57 0057 ! 1-008 - Use 32-bit addresses for externals. bs 27-JAN-1979 
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1-014 - 
1-015 - 


1-519 


genet 


1-019 


1-020 


14-Sep-1984 1 


1Besdp-19 4 90: 18:32 


oe ob beh. changes to the statement types in the ISB. 
aad srt a “i948 DGP 19-Feb-79 

. d Ba. || USING ons straighten up a lot of Basic stuff. 
hag okt | INPUT. GP. 05-Jun-79 

Add MAT PRINT. DGP 15-Jun-79 

Add ant _ FORTRAN piptenene t ie Indexed Reve TE, 
keyed READ, internal READ and tebatcn poe 


Remove basic C and engage name 
BASIC por be put into 
ls to determine table 


Use ISB gxmbo $4 ze. SBL 
Add F F _ IGDIS_JSB. JBS 01-JUL-1979 


VM 
Add table entries for NAMELIST. SBL + aay | Orig 80 
W 25-Aug-1981 


Make "% and REC-Llevel references WEAK. 
vMS v3.0 


Ag R$SDI 
BAS$$ DispaTCH ap ly 25-4UN=1979 
-July-1979 


Add table entries for pees icerene internal files. Use 


prologue file. SBL 21-Apr-19 
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! PROLOGUE FILE: 


REQUIRE ‘RTLIN:FORPROLOG'; ! FORTRAN definitions 
! 


TABLE OF CONTENTS: 


RR : CALL_CCB NOVALUE, ' Signal a dispatch error 
SB : JSB_ODFO NOVALUE; ! (J8B entry point) 

| MACROS: 

NONE 

EQUATED SYMBOLS: 

: NONE 

EXTERNAL REFERENCES: 


{ No UDF_RN1 exists 
FORSSUDF_RN9 : JSB_UDF9 NOVALUE WEAK, T Terminate read NAMELIST 
FORSSUDF_WNO : JSB_UDFO NOVALUE WEAK, ! Initialize write NAMELIST 


ee ee me a el ee a ee ee ee et ee ee a a ee a el ll el il ll el ll lt cl all eel el ll ll ll el cel el ll al ol ld ed SOOO 


fmlolelelelelelelelol~l(elelelelolelelelelelelelelelelelelelelelelelelelelelealelelelelelelelelelelelalelelalelalealo) 

09 00 09 C9 SINS SIS SNR AAA AAA AAA UMMIMIMIMIUMIVIVIVIVG & OO CO OD00 SJ 
SSS CSS Lee SSSR ARAN ALS SSVSARANASSRIFSALARV IS SSIS ALUN LS SUN oo 
ee a ee ee ee cl ee eee ee ee ee ce ce cc ee ee ca ee ee et ed ei ee ee ch ce cl lh ce el ee cl ce ei ee el el ea eld ec el ee en cl cll 


100 

101 

102 

103 

104 

105 

106 EXTERNAL LITERAL 

107 OTS$_FATINTERR, 

108 OTS$"10_CONCLO: 

109 

119 7 

| Formatting level of abstraction 

113 

114 EXTERNAL ROUTINE Sa at 

115 FORSSUDF_RFO : JSB_UDFO NOVALUE WEAK, ' Initialize read formatted 

116 FORSSUDF_RF1 : CALC CCB NOVALUE WEAK, ! format one 1/0 List element 
117 ORSSUDF-RF9 : JSB_ODF9 NOVALUE WEAK, ! terminate read formatted 

118 FORSSUDF WFO : JSB_UDFO NOVALUE WEAK, ! Initialize write formatted 
119 FORSSUDF_WF1 : CALC_CCB NOVALUE WEAK, ! Format one I/0 List element 
120 FORSSUDF-WF9 : JSB_ODF9 NOVALUE WEAK, ! Terminate write formatted 

121 FORSSUDF _RU JSB_UDFO NOVALUE WEAK, ! Initialize read unformatted 
122 FORSSUDF-RU1 : CALC_CCB NOVALUE K, ! Transmit one 1/0 List element 
123 FORSSUDF-RU9 : JSB_ODF9 NOVALUE WEAK, ! Terminate read unformatted 
124 ORSSUDF _ JSBUDFO NOVALUE WEAK, ' Initialize write unformatted 
125 FORSSUDF-wUl : CALC cce NOVALUE WEAK, ! Transmit one 1/0 List element 
126 FORSSUDF-WU9 : JSB_ODF9 NOVALUE WEAK, ! Terminate write unformatted 
44 FORSSUDF_RLO : JSB_UDFO NOVALUE WEAK, ' Initialize read list-directed 
128 FORSSUDF-RL1 : CALC_CCB NOVALUE K, ! Transmit one 1/0 List element 
128 FORSSUDF-RLO : JSB_ODF9 NOVALUE WEAK, ! Terminate read list directed 
130 FORSSUDF_WLO : JSB_UDFO NOVALUE Re ! Initialize write List-directed 
131 FORSSUDF"WL1 : CALC CCB NOVALUE WEAK, ! Transmit one 1/0 List element 
132 FORSSUDF-WL9 : JSB_ODF9 NOVALUE K, ! Terminate write list-directed 
Ht FORSSUDF_RNO : JSB_UDFO NOVALUE WEAK ! Initialize read NAMELIST 

1 
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137 8 01 1 ! No UDF_WN1 exists 

: 5 8 o ! FORSSUDF_WN9 : JSB_UDF9 NOVALUE WEAK; T Terminate write NAMELIST 

140 0206 1 !¢ 

141 0205 1 ! Record processing level of abstraction 

in 0206 1 !- 

14 0207 1 

144 0208 1 EXTERNAL ROUTINE ! Read sequential formatted record 

145 0209 1 poneen EC_RSFO : JSB_RECO NOVALUE WEAK, ' read first record 

146 0210 1 ORSSREC_RSF1 : JSB_REC1 NOVALUE WEAK, ' read all subsequent records 

147 0211 1 FORSSREC “RSF9 : JSB_REC9 NOVALUE WEAK, ! terminate read write sequential 

148 osté 1 ! formatted record 

149 0215 1 FORSSREC_WSFO : JSB_RECO NOVALUE WEAK, ! initialize output buffer 

150 0214 1 FORSSREC_WSF1 : JSB_REC1 NOVALUE WEAK, ! write all but last record 

151 0215 1 FORSSREC_WSF9 : JSB “RECO NOVALUE WEAK, ! write last care 

126 0216 1 ! read erASOO unformatted record 

15 0217 1 FORSSREC_RSUO : JSB_RECO NOVALUE WEAK, ' read first record 

154 0218 1 FORSSREC_RSU1 : JSB_REC1 NOVALUE WEAK, ' read all subsequent records 

155 0219 1 FORSSREC_ “RSUD : JSB-REC9 NOVALUE WEAK, ! terminate read 

156 0220 1 ' write Se tial Unformatted record: 

157 0221 1 FORSSREC_WSU0 : JSB_ Reto a WEAK, ! initialize output buffer 

158 OSS6 1 FORSSREC_WSU1 : JSB_REC1 ALUE WEAK, ' write all but last record 

159 0223 1 FORSSREC “wSU9 : JSB “RECO NOVALUE WEAK, ! write last record 

160 0224 1 read direct (formatted: and unformatted) i 

161 0225 1 FORSSREC. RD : JSB_LRECO NOVALUE WEAK, ' read first record 

162 0226 1 ORSSREC_RD1 : JSB_REC1 NOVALUE WEAK, ! read next record 

163 0227 1 FORSSREC “RDO : JSB_REC9 NOVALUE WEAK, ! terminate read 

164 0228 1 ‘write direct (formatted: and unformatted) 

165 0229 1 FORSSREC_WDO : JSB_RECO NOVALUE WEAK, ! initialize output buffer 

166 0230 1 FORSSREC_WD1 : JSB_REC1 NOVALUE WEAK, ! write next record 

167 0231 1 FORSSREC_WD9 : JSB-REC9 NOVALUE WEAK, ! write last record 

168 0232 1 ! read sequential Cist-directed 

169 0235 1 FORSSREC_RSLO : JSB_RECO NOVALUE WEAK, ' read first record 

170 0234 1 FORSSREC_RSL1 : JSB_REC1 NOVALUE WEAK, ' read all subsequent records 

171 0235 1 FORSSREC_RSLO : JSB-REC9 NOVALUE WEAK, ' terminate read 

172 0236 1 ‘write sequential List-directed 

173 0237 1 FORSSREC_WSLO : JSB_RECO NOVALUE WEAK, ! initialize output buffer 

174 0238 1 FORSSREC_WSL1 : JSB_REC1 NOVALUE WEAK, ! write all but last record 

175 0239 1 FORSSREC_WSL9 : JSB_REC9 NOVALUE WEAK, ! write last record 

176 0240 1 ' read m cenert | formatted (DECODE) 

177 0241 1 FORSSREC B_RECO NOVALUE WEAK, ' feitterte pointers to user area 

178 O5e8 1 FORSSREC_RMF1 : 488 “REC1 NOVALUE WEAK, ; hoges 

179 0243 1 FORSSREC “RMF9 : JSB_REC9 NOVALUE WEAK, ' te nate read 

180 0244 1 write Renory format sted (ENCODE) 

181 0245 1 FORSSREC OM FO : JSB_RECO NOVALUE WEAK, ! initialize output buffer to user area 

ins 0246 1 FORSSREC_WMF 1 $ 388 “REC1 NOVALUE WEAK, ' illegal 

18 0247 1 FORSSREC_WMF9 : JSB_REC9 NOVALUE WEAK, ! terminate write 

184 0248 1 FORSSREC_RKFO : JSB_-RECO NOVALUE WEAK, ! read keyed formatted 

185 0249 1 FORSSREC_RKF1 : JSB_-REC1 NOVALUE, 

186 0250 1 FORSSREC_RKF9 : JSB_REC9 NOVALUE, 

187 0251 1 FORSSREC_RKUO : JSB_RECO NOVALUE WEAK, ! read keyed unformatted 

188 BS2¢ 1 FORSSREC_RKU1 JSB-REC1 NOVALUE, 

18S Ose 1 SREC"RKU9 : JSB_REC9 NOVALUE, ; 

190 0254 1 FORSSREC_WXFO : JSB_RECO NOVALUE WEAK, ' REWRITE indexed formatted 

191 0255 1 FORSSREC_WXF1 : JSB-REC1 NOVALUC, 

iss 0256 1 FORSSREC_WXF9 : JSB-REC9 NOVALUE, d 

19 0257 1 FORSSREC"WXU0 : JSB-RECO NOVALUE WEAK ' REWRITE indexed unformatted 
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EC_WXU 
EC_WxU 
EC_WIF 
EC_WIF 
FORSSREC_WIF 
EC_RIF 
EC_RIF 
EC_RIF 
EC_WSN 
EC_WSN 


FORSSREC_RSNO : 
FORSSREC_RSN1 : 


! 
; OWN STORAGE: 


-Oo0-"0o0—-"00— 


oeeesee es 
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ecceeceeccoO 
NNNMNMMNMNNNON 
DOWOoOwWDODwWwo 
MmMmMmmmmmmmern 
COQMOMOOQONMOO 
-oO0—-00-" 00 


NOVALUE, 
NOVALUE, 
NOVALUE WEAK, 
NOVALUE, 
NOVALUE, 
NOVALUE WEAK, 
NOVALUE, 
NOVALUE, 
NOVALUE WEAK, 
NOVALUE 


NOVALUE WEAK, 
NOVALUE WEAK, 


NOVALUE WEAK, 
NOVALUE, 
NOVALUE, 
NOVALUE WEAK, 
NOVALUE, 
NOVALUE ; 
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Write internal file 
Read internal file 


Write NAMELIST 


There is no 9 Level REC 
routine for Write NAMELIST 
Read NAMELIST 


There is no 9 Level REC zy, | 


routine for Read NAMELIST 
Write internal List-directed 


Read internal List-directed $ 
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FORTRAN READ internat List-directed 
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1-020 14-Sep 1:49 FORRTL SRC IFORD! ISPAT. 8 2;1 (3) | 
: 1 0284 1 !+ 
3 ¢ 0285 1 ! GLOBAL DISPATCH VECTORS (indexed by 1/0 statement type numbers): 
; 0286 1 ! Connects the first level of abstraction (UPI) to the 
; 4 0287 1 ! second level (UDF). Note: The comments down the 
3 5 0288 7 | side describe the 1/0 statement index (UPI Level) into the 
3 226 0289 1 ! dispatch table rather than the external routine contained in 
: ger 0290 1 ! the entry (UDF level). The entries are the name of the 
3 228 0291 1! User data formatters (UDF Level = 2nd Level of ebssract ton) ~ 
is 2e9 O536 1! First letter: R = READ we WRITE; second letter: F = formatted, 
13; 230 0293 1! W = unformatted, L = Tlabeatres ted. 
}s @31 0294 1 | Declare as GLOBAL rather then GLOBAL BIND because 
13 $36 T94 1 ! BLISS doesn't allow BIND table = ... = table). 
> 234 eee a Be 
: a2 0298 1 ! Initialization of UDF Level: 
> 236 {444 1 !- 
3; 237 0300 1 
: oe 0301 1 GLOBAL 
: 239 0302 1 FORSSAA UDF _PRO : VECTOR ihe FORSTTYHI = ISBSK_FORSTTYLO + 2,, SIGNEDJ 
: 240 0303 1 PSECT ( (FORSCODE) INITIA 
> 261 0304 1 by 0 on closed unit 
; 242 0305 1 FORSS$SIGDIS_JSB - FORSSAA_ UDF _PRO, ! Error 
: 243 0306 1 1/0 ; Statement type: 
> 246 0307 1 FORSSUDF _WFO - FORSSAA UDF _PRO, ! WRITE sequential formatted (WSF) 
> 245 0308 1 FORSSUDF_RFO - FORSS$AA_UDF_PRO, i READ sequential formatted (RSF) 
> 246 0309 1 FORSSUDF_WUO - FORSSAA_UDF_PRO, ! WRITE sequential unformatted (WSU) 
> 247 0310 1 FORSSUDF_RUO - FORSSAA_UDF_PRO, ! READ sequential unformatted (RSU) 
; 248 0311 +1 FORSSUDF _WFO - FORSSAA_UDF_PRO, ' WRITE direct formatted (WDF) 
> 249 0312 1 FORSSUDF_RFO - FORSSAA_UDF_PRO, ! READ direct formatted (RDF) 
: en 0313 1 ORSSUDF — - FORSSAA_UDF _PRO, ! WRITE direct unformatted (WDU) 
: 251 0314 1 FORSSUDF_RUO - FORSSAA_UDF_PRO, ' READ direct unformatted (RDU) 
3 252 0315 1 FORSSUDF—WLO = FORSSAA_UDF PRO, i WRITE sequential list-direct (WSL) | 
: <€e 0316 1 FORSSUDF_RLO - FORSSAA_UDF_PRO, ! READ poquent iat List-directed (RSL) 
; €26 0317 1 FORSSUDF _WFO = FORSSAA_UDF_PRO, ! ENCODE (memory formatted) (WMF) 
: go> 0318 1 FORSSUDF_RFO - FORSSAA_UDF_PRO, ' DECODE yore formatted) (RMF) 
; 256 0319 1 FORSSUDF _WFO - FORSSAA_UDF _PRO, ' FORTRAN REWRITE indexed formatted (WXF) 
oo war 0320 1 FORSSUDF_RFO - FORSSAA_UDF_PRO, ee RAN READ keyed formatted (R 
; go 0321 1 FORS$UDF_WUO - FORSSAA_UDF_PRO, : peatann REWRITE indexed teh teed Ny (WXU) 
3 £7 0322 1 FORSSUDF _ - FORSSAA_UDF_PRO, ! FORTRAN READ keyed unformatted (RK 
> 260 0323 1 FORSSUDF WFO - FORSSAA_UDF PRO, i FORTRAN WRITE internal formatted (WIR). 
: 261 0324 1 FORSSUDF_RFO = FORSSAA_UDF_PRO, ' FORTRAN READ internal formatted (RIF). 
; $o¢ 0325 1 FORSSUDF_WNO - FORSSAA_UDF_PRO, ! FORTRAN WRITE NAMELIST 
> 26 0326 1 FORSSUDF-RNO - FORSSAA_UDF—PRO, i FORTRAN RE EUASt 7a © 2% 
; 264 0327 1 FORSSUDF-WLO - FORSSAA_UDF PRO ' FORTRAN WRITE internal List-directed 
> 265 0328 1 FORSSUDF~RLO - FORSSAA-UDF-PROS; — | 
| 
} 
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(3 267 0329 1 !+4 : ; bp hee 
a soe 0 9 i Transmit a single 1/0 List element Ay — ee 
270 O33¢ 1 Fo 
3 sf 03 1 GLOBAL j : ' 
3 ie 0334 1 FORSSAA_UDF_PR1_: VECTOR CISBSK_FORSTTYHI = ISSSK_FORSTTYLO + 2,, SIGNED] ps 
is ef 0335 1 PSECT (“FORSCODE) INITIAL ( ; a j N 3 

; 274 03 § 1 FORSSSIGDIS_ERR = FORSSAA_UDF_PR1, |! 1/0 On closed unit error e304 ha 
i; 275 0337 1 ! 1/0°statement type: i 2 
(276 0338 1 FORSSUDF_WF1 = FORSSAA_UDF_PR1, ' WRITE sequential formatted (WSF) j } 

ae 0339 1 FORSSUDF _RF1 = FORSSAA_UDF_PR1, ! READ sequential formatted (RSF) : 
i 278 0340 1 FORSSUDF-WU1 = FORS$AA~UDF-PR1, iWRITE sequential unformatted (WSU), | 
is ery 0341 1 FORSSUDF_RU1 = FORSSAA_UDF_PRI, : READ sequential unformatted (RSU) | 

: see te) 1 FORSSUDF _WF1 = FORSSAA_UDF_PR1, ! WRITE direct formatted (WDF) © j 

3 81 0345 1 FORSSUDF_RF1 = FORSSAA_UDF_PR1, ! READ direct formatted (RDF) — : 

; sas 0344 1 FORSSUDF_WU1 = FORSSAA_UDF_PR1, ! WRITE direct unformatted (WOU) | 

3; 2 0345 1 FORSSUDF_RU1 = FORSSAA_UDF_PR1, ! READ direct unformatted (RDU) 

> 284 0346 1 FORSSUDF_WL1 = FORSSAA_UDF_PR1, ! WRITE sequential List-direct (WSL) 

> 285 0347 1 FORSSUDF_RL1 = FORSSAA_UDF_PR1, ! READ sequential List-directed (RSL) 

; 286 0348 1 FORSSUDF _WF1 = FORSSAA_UDF_PR1 ! ENCODE (memory formatted) (WMF.) 

3 287 0349 1 FORSSUDF_RF1 = FORSSAA_UDF_PR1. i DECODE (memory formatted) (RMF) 

; 288 0350 1 FORSSUDF_WF1 = FORSSAA_UDF-PRi, | FORTRAN REWRITE indexed formatted (WxF) 

; 289 0351 1 FORSSUDF _RF1 = FORSSAA_UDF_PR1, ! FORTRAN READ keyed formatted (RKF) 

; 290 O3eg 1 FORSSUDF _WU1 = FORSSAA_UDF_PR1, ! FORTRAN REWRITE indexed unformatted (WXU) 

> 291 0353 1 FORSSUDF_RU1 = FORSSAA_UDF_PR1, ! FORTRAN READ keyed unformatted (RKU) 
(3 292 0354 1 FORSSUDF_WF1 = FORSSAA_UDF—PR1, FORTRAN WRITE internal formatted: (WIF) 

; 293 0355 1 FORSSUDF_RF1 = FORSSAA_UDF PRI, ! FORTRAN READ internal formatted (RIF) 

> 294 0356 1 FORSS$SIGBDIS_ERR - FORSSAA_ODF_PR1, |! No elements for WRITE NAMELIST 

> 295 0357 1 FORSSSIGDIS_ERR = FORSSAA_UDF PR1, ! No elements for READ NAMELIST 

; 296 0358 1 FORSSUDF_WLT - FORSSAA_UDF_PRT, ! FORTRAN WRITE internal List-dorected 

; 297 0359 1 FORSSUDF_RL1 = FORSSAA_UDF_PR1); ! FORTRAN READ internal List-directed 


H 1 
| FORSSDISPATCH_T 1/0 dispatch tables for FORTRAN 16-Sep-1984 09:18:32 AX-11 Bliss-32 V4 tah 
1-020 14-Sep-1984 12:31:49 FORRTL.SRCIFORDISPAT.B32;1 
; 0360 1 !+ 
; 300 0361 1 ! End 1/0 List entry points: 
; 0 6¢ 1 !- 
; 03635 1 
: Hi 0364 1 GLOBAL 
; 304 0365 1 FORSSAA_UDF_PRO_ : VECTOR CISBSK_FORSTTYHI = ISBSK_FORSTTYLO + 2,, SIGNED] 
: 309 0366 1 PSECT (“FORSCODE) INITIAL 
; 306 0367 1 FORSSSIGDIS_JSB - FORSSAA_UDF_PR9, ! I/0 on closed unit error 
: 307 0368 1 ! 1/0°statement type: 
; 308 0369 1 FORSSUDF _WF9 = FORSSAA_UDF_PRI, ! WRITE sequential formatted (WSF) 
; 309 0370 1 FORSSUDF _RF9 = FORSSAA_UDF_PR9, ! READ sequential formatted (RSF) 
; 10 tas 1 FORSSUDF _WU9 = FORSSAA_UDF_PRY, ! WRITE sequential unformatted (WSU) 
2s St 0 Le 1 FORSSUDF_RU9 = FORSSAA_UDF_PRY, ! READ sequential unformatted (RSU) 
; 312 0373 1 FORSSUDF_WF9 = FORSSAA_UDF PR, i WRITE direct formatted (WDF) 
; oH 0374 1 FORSSUDF_RF9 = FORSSAA_UDF PRO, i READ direct formatted (RDF) 
> «314 0375 1 FORSSUDF _WU9 = FORSSAA_UDF_PR9, ! WRITE direct unformatted (WDU) 
5 2i2 0376 1 FORSSUDF_RU9 = FORSSAA_UDF_PRY, ! READ direct unformatted (RDU) 
; 316 0377 1 FORSSUDF _WL9 = FORSSAA_UDF_PRI, ! WRITE sequential List-direct (WSL) 
; au 0378 1 FORSSUDF _RLO = FORSSAA_UDF_PRI, ' READ sequential List-directed (RSL) 
; 3 0379 1 FORSSUDF _WF9 = FORSSAA_UDF_PRO, ! ENCODE (memory formatted) (WMF) 
3 a 0380 1 FORSSUDF _RF9 = FORSSAA_UDF_PRY, ! DECODE ye yt formatted) (RMF) 
: 20 0381 1 FORSSUDF _WF9 = FORSSAA_UDF_PRO, ' FORTRAN REWRITE indexed formatted (WXxF) 
: 21 bes 1 FORSSUDF _RF9 = FORSSAA_UDF_PRI, ! FORTRAN READ keyed formatted (RKF) 
; $§ 0385 1 FORSSUDF_WU9 = FORSSAA_UDF_PRI, ! FORTRAN REWRITE indexed unformatted (WXU) 
: 32 0384 1 FORSSUDF-RU9 - FORSSAA_UDF—PR9, i FORTRAN READ keyed unformatted (RKU) 
; 324 0385 1 FORSSUDF _WF9 = FORSSAA_UDF_PR9I, ! FORTRAN WRITE internal formatted (WIF) 
; 325 0386 1 FORSSUDF _RF9 = FORSSAA_UDF_PRO, ! FORTRAN READ internal formatted (RIF) 
; 326 0387 1 FORSSUDF_WN9 = FORSSAA_UDF~PR9, i FORTRAN WRITE NAMELIST 
s der 0388 #1 FORSSUDF _RN9 = FORSSAA_UDF_PRI, ! FORTRAN READ NAMELIST . 
; ten 0389 1 FORSSUDF _WLY - FORSSAA_UDF _PRO, ! FORTRAN WRITE internal list-dorecte 
. Bev 0390 1 FORSSUDF_RLO = FORSSAA_UDF_PR9); ! FORTRAN READ internal List-directed 
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ae 
1/0 dispatch tables for FORTRAN 1b-s Sep =138¢ 99: 48: :37 AX-11 Bliss-32 V4.0-7 
14-Sep-1984 1:49 PORRTLY SRCJFORDISPAT. 8 231 
0391 1 !+ 
0 38 1 ! Dispatch pepies fo cf call record processing level of abstraction 
0395 1 ! routines (RE level). Used to connect énd reyes of 
0394 1! 3 at bene Phong fur) to third lout of abstraction (REC). 
0395 1! The e jee tables are indexed by I/0 statement type (‘st 
0396 1! Level 
0397 1 ! Record processing» routine panes have the form: 
0398 1 !' First letters: R = READ, W WRITE)); 
0399 1 ! Second letters: 54, = sequential, D = direct, M = memor y)); 
ett : third letters: F = formatted, U = unformatted, L = List-directed. 
pee 1 '¢ 
0403 1! Initialize entry points (read first record or setup 
0404 1 } output buffer). 
0405 1 i- 
0406 1 
0407 16 
0408 1 FORSSAA REC -PRO_: VECTOR CISBSK_FORSTTYHI = ISBSK_FORSTTYLO + 2,, SIGNED] 
0409 1 PSECT RSCODE) INITIAL 
0410 1 FORSSSieb1 $< JSB ~ FOR RSS$AA_REC_PRO, ! 1/0 on closed unit error 
0411 1 ' 1/O07statement type: 
0412 1 FORSSREC_WSFO - FORSSAA_REC_PRO, RITE sequential formatted (WSF) 
0413 1 FORSSREC_RSFO = FORSSAA_REC_PRO, ! READ sequential formatted (RSF) 
0414 1 FORSSREC_WSUO - FORSSAA_REC_PRO, ! WRITE sequential unformatted (WSU) 
0415 1 ORSSREC_RSUO - FORSSAA_REC PRO, ' READ sequent tal antornatted (RSU) 
0416 1 FORSSREC_WDO - FORSSAA_REC_PRO, ! WRITE direct formatted (WDF) 
0417 1 FORSSREC-RDO = FORSSAA_REC_PRO, ' READ direct formatted (RDF) 
0418 1 FORSSREC_WDO - FORSSAA_REC_PRO, ! WRITE direct unformatted en 
0419 i FORSSREC_RDO = FORSSAA_REC_PRO ! READ direct unformatted (RDU) 
0420 1 FORSSREC_WSLO - FORSSAA_REC_PRO, | WRITE sequential List-direct (WSL) 
0421 1 FORSSREC_RSLO - FORSSAA_REC_PRO, ' READ sequential List-directed (RSL) 
0422 1 ORSSREC_WMFO - FORSSAA_REC_PRO, ' ENCODE (memory formatted) (WMF) 
0423 #1 FORSSREC_RMFO - FORSSAA_REC_PRO, : DELODE 5 fmenery, 9 formatted) (RMF) 
0424 1 FORSSREC_WXFO - FORSSAA_REC_PRO, ! FORT ITE indexed formatted (WxF) 
0425 1 FORSSREC"RKFO - FORSSAA_REC_PRO, FORTRAN READ keyed formatted (RKF) 
0426 1 FORSSREC"WXUO ~ FORSSAATRECTPRO, : FORTRAN REWRITE indexed unformatted (WXU) 
0427 1 FORSSREC_RKUO - FORSSAA_REC_PRO, ' FORTRAN READ keyed unformatted (RKU) 
0428 1 FORSSREC_WIFO - FORSSAA_REC_PRO, ' FORTRAN eis internal formatted (WIF) 
0429 1 ORSSREC_RIFO - FORSSAA_REC_PRO, i FORTRAN READ internal formatted (RIF) 
0430 1 FORSSREC_WSNO - FORSSAA_REC_PRO, ! FORTRAN WRITE NAMELI 
0431 1 FORSSREC_RSNO - FORSSAA_REC_PRO, ' FORTRAN READ NAMEL TST. 
0432 #1 FORSSREC_WILO - FORSSAA_REC_PRO ! FORTRAN WRITE internal List-dorected 
0433 1 FORSSREC_RILO - FORSSAA_REC “PROS; ! FORTRAN READ internal List-directec 


Page 


PORSEOISPATCHT 1/0 dispatch tables for FORTRAN tbe Sep-1984 AX-11 Bliss-32 V4.0-74 
1-020 ats 7 93: 42 FORRTL.SRCIFORDIS PAT .B32;1 
75 0434 1 !+ 
76 Se 5 1! Intermediate transfer a record - read second ang 
77 4 8 1 ! subsequent records for this 1/0 statement or write 
A Be ‘ } R first and all but Last record for this 1/0 statement. 
380 0439 1 
381 0440 1 GLOBAL 
a6 0441 1 FORSSAA REG -PR1_: VECTOR CISBSK_FORSTTYHI = ISBSK_FORSTTYLO + 2,, SIGNED] 
38 0442 1 PSECT ("FORSCODE) INITIAL (~ 
384 0445 1 FORSSS1CD1$_JS8 = FORSSAA_REC_PR1, ! 1/0 on closed unit error 
385 0445 1 ' 1/07statement ty ype: 
386 0445 1 FORSSREC_WSF1 = FORS$AA_REC_PR1, ! WRITE sequential formatted ese} 
387 0446 1 FORSSREC_RSF1 = FORSSAA_REC_PR1, ! READ sequential formatted (RSF) 
388 0447 1 FORSSREC_WSU1 = FORSSAA_REC_PR1, ! WRITE sequential unformatted (WSU) 
389 0448 1 FORSSREC_RSU1 = FORSSAA_REC PRI, ' READ sequential unformatted (RSU) 
390 0449 1 FORSSREC_WD1 = FORSSAA_REC_PR1, ' WRITE direct formatted (WDF) 
391 0450 1 FORSSREC_RD1 = FORSSAA_REC_PRI, ! READ direct formatted (RDF) 
392 0451 1 FORSSREC_WD1 = FORSSAA_REC_PR1, ! WRITE direct unformatted eng 
393 0452 1 FORSSREC_RD1 = FORSSAA_REC_PR1 ! READ direct unformatted (RDU) 
394 0453 1 FORSSREC_WSL1 - FORSSA UREC_PRI, ! WRITE sequential List-direct (WSL) 
395 0454 #1 FORSSREC_RSL1 = FORSSAA_REC_PR1, ! READ sequential List-directed (RSL) 
396 0455 1 FORSSREC_WMF1 = FORSSAA_REC_PR1, ! ENCODE (memory formatted) (WMF) 
397 0456 1 FORSSREC_RMF1 = FORSSAA_REC_PR1, ! DECODE spenery formatted) (RMF) 
398 0457 1 FORSSREC_WXF1 = FORSSAA_REC_PR1, ! FORTRAN REWRITE indexed seraet ee. (WXF) 
399 0458 1 FORSSREC_RKF1 = FORSSAA_REC_PR1, ! FORTRAN READ keyed formatted (RK 
400 0459 1 FORSSREC_WXU1 = FORSSAA_REC_PR1, ! FORTRAN REWRITE indexed unformatted (WXU) 
401 0460 1 FORSSREC_RKU1 = FORSSAA_REC_PR1, ! FORTRAN READ keyed unformatted (RKU) 
402 0461 1 ORSSREC_WIF1 = FORSSAA_REC_PRI, ' FORTRAN WRITE internal formatted (WIF) 
403 0462 1 FORSSREC_RIF1 = FORSSAA_REC_PR1, ! FORTRAN READ internal formatted (RIF) 
404 0463 1 FORSSREC_WSN1 - FORSSAA_REC_PR1, | FORTRAN WRITE NAMELIST 
405 0464 1 FORSSREC_RSN1 = FORSSAA_REC_PR1, ! FORTRAN RE L : 7 
406 0465 1 FORSSREC_WIL1 - FORSSAA_REC_PR1 ! FORTRAN WRITE internal List-directed 
407 0466 1 FORSSREC_RIL1 = FORSSAA-REC_PR1); | FORTRAN READ internal List-directed 
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K 
ORSSDISPATCH_T 1/0 dispatch tables for FORTRAN 16-$ 
-020 148 
409 0467 1 !+ 
410 0468 1 ! End of 1/0 List record processing 
411 0469 1 I+ 
ie 0470 1 
41 0471 1 GLOBAL 
414 0478 1 FORSSAA_REC_PRO_ : VECTOR CIS 
415 0473 1 PSECT (“FORSCODE) INITIAL 
416 0474 1 FORSSSIGDIS_JSB = FORSSAA_REC_PRY, 
417 0475 1 : 
418 0476 1 FORSSREC_WSF9 = FORSSAA_REC_ 
419 0477 1 FORSSREC_RSF9 = FORSSAA_REC_PRO, 
420 0478 1 FORSSREC “WSUS - FORSSAA_REC_PRO, 
401 0479 1 FORSSREC_RSU9 = FORSSAA-REC-PRO, 
4 é 0486 1 FORSSREC_WD9 = FORSSAA_REC_PRI, 
4 0481 1 FORSSREC_RD9 = FORSSAA_REC_PRI, 
424 O68¢ 1 FORSSREC_WD9 = FORSSAA_REC_PRO, 
425 0483 1 FORSSREC_RD9 = FORSSAA_REC_PRO 
426 0484 1 FORSSREC_WSL9 - FORSSAK_REC_PRO, 
427 0485 1 FORSSREC_RSLO = FORSSAA_REC_PRI, 
428 0486 1 FORSSREC_WMF9 = FORSSAA_REC_PRO, 
49 0487 1 FORSSREC_RMF9 = FORSSAA_REC_PRO, 
430 0488 1 FORSSREC_WXF9 = FORSSAA_REC_PRO, 
431 0489 1 FORSSREC_RKF9 = FORSSAA_REC_PRO, 
432 0490 1 FORSSREC_WXU9 = FORSSAA_REC_PRY, 
433 0491 1 FORSSREC_RKU9 = FORSSAA_REC_PRO, 
434 0492 1 FORSSREC_WIF9 = FORSSAA_REC_PRO, 
435 0493 1 FORSSREC-RIF9 = FORSSAA_REC_PRO, 
436 0494 1 FORS$SSIGBIS_JSB - FORSSAA_REC_PRO 
437 0495 1 FORS$$SIGDIS-JSB - FORSS$AA_REC PRO, 
438 0496 1 FORSSREC_WIC9 - FORSSAA_REC_PR9, 
439 0497 FORS$REC_RILO - FORSSAA_REC_PR9); 


1 
ep=19be toi$1 149 


AX-11 Bliss-32 V4 


a acta his, - ISBSK_FORSTTYLO + 2,, SIGNED] 


' 1/0 on closed unit error 


/0 statement type: 
a REC_PRY, RITE sequential formatted (WSF) 


' READ sequential formatted (RSF) 

! WRITE sequential unformatted (WSU) 
' READ sequential unformatted (RSU) 
! WRITE direct. formatted (WDF) 

' READ direct formatted (RDF) 

! WRITE direct unformatted (WDU) 

' READ direct unformatted (RDU) 

! WRITE sequential Llist-direct (WSL) 
' READ sequential List-directed (RSL) 
' ENCODE (memory formatted) (WMF) 

' DECODE (memory formatted) (RMF) 


i FORTRAN READ keyed formatted (RKF) 


' FORTRAN REWRITE indexed unformatted (WXU) 


! FORTRAN READ keyed unformatted (RKU) 


i No RECO for WRITE NAMELIST 
' No’ RECO for READ NAMELIST 


mn 
oOo 
Zz 
“ 
= 


' FORTRAN-READ internal List-directed 


1 $8 0-74 
FORRTL.SRCJFORDISPAT.B32;1 


AN REWRITE indexed formatted (WXF) 


' FORTRAN WRITE internal formatted (WIF) 
FORTRAN READ internal formatted (RIF) 


' FORTRAN WRITE internal list-dorected 


| ‘ 1 
FORSSDISPATCH_T 1/0 dispatch tables for FORTRAN 1$- ep-1984 00:18:37 AX-11 Bliss-32 V4.0-74 P 1 
1-020 VenSep=1984 eisii49  EPORRTL SRESFORDI SPAT. 69231 oe (95 

3 
| 


ROUTINE VALUE: 
! COMPLETION CODES: 


NONE 
i SIDE EFFECTS: 


Signals OTS$_IO_CONCLO if the LUB is not open, or 
OTSS_FATINTERR Tf it is. 


: rs ROUTINE FORSSSIGDIS_ERR : CALL_CCB NOVALUE = : 

: 44d le4 
oe FUNCTIONAL DESCRIPTION: 
447 i Signal an error from the 1/0 dispatch process. The error code | 

448 : signalled pes on the statement type. One statement type is 
449 : used by CLOSE to catch dispatches on a closed unit, which can 
450 : happen if the CLOSE is done as part of recursive I/0. If the 
451 : statement type is not the one used by CLOSE, we have an error 
126 ‘ in the RTL (an invalid statement type a 
45 ‘ Note that, at the present time, FORTRAN does not permit 
tee ; recursive 1/0. 

436 i FORMAL PARAMETERS: r 
458 i NONE 
459 ! 
tet i 
406 ; ISBSB_STTM_TYPE.rb.r Statement type of 1/0 statement 
464 i IMPLICIT OUTPUTS: 
466 NONE 
i 
i 
1 
i 
i 
' 
i 
i 
i 
i 
i = 


i IMPLICIT INPUTS: 
| 
| 


BEGIN 


EXTERNAL REGISTER 
CCB : REF SFORSCCB_DECL; 


IF ( NOT .CCB CLUBSV_OPENED)) 
THEN 


'¢ 
The file must have been closed with 1/0 still active on it. 


SIGNAL_STOP (OTS$_10_CONCLO) 
|, ELSE 


i This must be an attempt to use an unimplemented feature. It represents 
;_an internal error in the OTS. | 


SIGNAL_STOP (OTSS$_FATINTERR); 
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M1 
| FORSSDISPATCH_T 1/0 dispatch tables for FORTRAN 16-Sep-19 AX-11 Bliss-32 V4.0-74 P 
1-020 : 18 13ae 83i8Fizs | EPO osResrono! sags 


-3 1 
FORDISPAT.B52;1 (9 


(3; 499 0556 1 END; !End of FORSSSIGDIS_ERR 
-TITLE FORSSDISPATCH_T 1/0 dispatch tables for FORTRAN 
SIDENT \1-020\ 
.PSECT _FORSCODE,NOWRT, SHR, PIC,2 
00000000+ 00000000 00000009 00000000 00000000 00000000v 00000 FORSSAA_UDE. PRO: : 
06000000 00000000* 00000000 


06000000* 00000000* 0000000 
00000000* 0000000 


, <FORS$SIGDIS_JSB-FORSS$AA_UDF_PRO>, - 
: 9Rennees ensagag aeeenee: ena Ptr 
Se §0000000" §o000000" tatdatdie faire 6 ; 
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* <FORSSUDF _WL O-FORSSAA_UDF _PR 
<FORSSUDF “RLO-FORSSAA UDF “PROD” 
00000000* 00000000* 00000000* 00000000* 00000000* 00000000* 0005C FORSS$AA_UDF _PR1: 
- LONG <FORSSSIGDIS ERR-FORSSAA_UDF _PRI>, - 


00000000* 00000000* 00000000* 00000000* 00000000* 90000000* 00074 <FORSSUDF _WFT-FORSSAA_UDF_PRT>, 
00000000* 00000000* 00000000* 00000000* 00000000* 00000000* 0008C <F ORSSUDF “RF 1-FORSSAA_UDF_PR1>, 
00000000* 00000000* 00000000* 00000000* 00000000* 000A4 <FORSSUDF _WU1-FORSSAA_UDF _PR1>, 
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<FORSSUDF _WLT-FORSSAA_UDF_PRT>, - 
<FORSSUDF ~ ~RL1-FORSSAA_UDF —~PR1> 


Pete Se Se Se Se Se Se Se Se Se Sete Se Se Ge Se Se Be Be Se Se Se 


| 

| “WF AA-UDF ~ 

| phot era RF 1-FORSSAA_UDF PR1> 
| 00000000* 00000000* 00000000* 00000000* 00000000* 00000000V 000B8 FORSSAA_UDF _PR9:: 

| 

i 


| N 1 
FORBEDISPATCH.T 1/0 dispatch tables for FORTRAN 16-Sep-1984 00:18:37: VAX-11 Bliss-32 v 
1-020 pr1obe Sosdtiae | Fean sae seas sear bS251 
<F 
F 


prods 90000000 «LONG SIGDIS A tat at PR9>, - 
00000000* Dab his 

00000000* 
= 


| <FORSSUDF _R 


$ 
| <FORSSUDF-RF9-FORSSAA_UDF-PR9>, 
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<FORSSUDF _ =RL9~F ORSSAA_UDF “=PRI>~ 


00000000* 00000000* 00000000* 00000000* 00000000* 00000000V 00114 FORSSAA_REC_PRO:: 
.LONG <FORSS$SIGDIS iponteik a REC_PRO>, - 


00000000* 00000000* 00000000* 00000000* 00000000* 00000000* 0012¢ <FORSSREC_WSFO-FORSSAA_REC_PRO>, - : 
00000000* 00000000* 00000000* 00000000* 00000000* 00000000* 00144 <FORSSRECIRSFO-FORSSAACREC™ PRO>, = ; 
00000000* 00000000* 00000000* 00000000* 00000000* 0015¢ <FORSSREC_WSU0-F ORSSAA-REC_PRO>, - ; 
<FORSSREC_RSUO-FORSSAA-REC_PRO>, - ; 
<FORSSREC~WDO-FORSSAA_REC_PRO>, - ; 
<FORSSREC~RDO-FORSSAA_REC_PRO>, - ; 
<FORSSREC_WDO-FORSSAA-REC_PRO>, - ; 
<FORSSREC_RDO-FORSSAA_REC-PRO>, - : 
<FORSSREC_WSLO-FORSSAA_REC_PRO>, - ; 
<FORSS$REC_RSLO-FORSSAA_REC_PRO>, - ; 
<FORSSREC_WMFO-FORSSAA_REC_PRO>, - ; 
<FORSSREC_RMFO-FORSSAA_REC_PRO>, - ; 
<FORSSREC_WXFO-FORSSAA_REC_PRO>, - ; 
<FORSSREC_RKFO-FORSSAA_REC_PRO>, - ; 
<FORSSREC~WXUO=F ORSSAA_REC_PRO>, - 3 
<FORSSREC“RKUO-FORSSAA_REC{PRO>, - ; 
<FORSSREC_WIFO-FORSSAA-REC_PRO>. - ; 
<FORSSREC_RIFO-FORSSAA-REC_PRO>, - ; 
<FORSSREC_WSNO~FORSSAA- EC“PRO>, - ; 
<FORSSREC~RSNO-FORSSAA_REC_PRO>, - ; 
<FORSSREC“WILO-FORSSAA REC“PRO> - ; 
<FORSS$REC~RILO-F ORSSAA_REC_PRO> ; 
| 00000000* 00000000* 00000000 00000000* 00000000* 00000000v 00170 FORSSAA_REC_PR1:: 

.LONG  <FORSSSIGDIS_JSB-FORSSAA_REC_PRI>, - : 
00000000* 00000000" 00000000* 00000000* 00000000* 00000000* 00188 <FORSSREC_WSF1-FORSSAA_REC_PRI>, - : 
00000000 00600000 00000000* 00000000* 00000000 9000000 * 001A0 <FORSSREC RSF 1-FORSSAA-REC_PR1>, - : 

| 00000000* 00000000* 00000000* 00000000* 00000000* 00188 <FORSSREC—WSU1-FORSSAA_REC_PRI>, - ; 

<FORSSREC_RSU1-FORSSAA-REC-PRI>, - : 
<FORSSREC—WD1-FORSSAA_REC_PRI>, - ; 
<FORSSREC-RD1-FORSSAA-REC_PRI>, - : 
<FORSSREC~WD1-FORSSAA-REC_PRI>, - ; 
| <FORSSREC~RD1-FORSSAA_REC_PR1>, = 


2 
FORSSDISPATCH_T 1/0 dispatch tables for FORTRAN 16-8 Sep “13 4 8:37 AX-11 Bliss-32 V 
1-020 14-Sep-1984 98: iF: 49 EPORRTL~SRe eSFoRD SPAT. 382: 37 
TORT SR EC WSL MORESAA.. REC_PR1I>, = 
<FORSSREC_RSL1=FORSSAA_REC_PR1>, = 
<FORSSREC_WMF 1=FORSSAA_REC_PRI>, - 
<FORSSREC_RMF 1-FORSSAA_ 4 Mad te = 
<FORSSREC_WXF 1-FORSSAA_REC_PRI>, - 
<FORSSREC_RKF 1=FORSSAA_REC_PR1>, = 
<FORSSREC-WXU1=FORSSAA_REC_PRI>, - 
<FORSSREC_RKU1-FORSSAA_REC_PR1>, - 
<FORSSREC-WIF 1-FORSSAA_REC_PRI>, - 
<FORSSREC_RIF1-FORSSAA_REC_PRI>, = 
<FORSSREC_WSN1-FORSSAA-REC_PRI>, - 
<FORSSREC_RSN1-FORSS$AA_REC_PRI>, = 
SSA SEESHILTSFOREEARREE PENS 
- > 

00000000* 00000000* 00000000* 00000000* 00000000* 00000000v 001CC FORSSAA REC PRD: leensearenta sen-soneead ane pi 
- a 
00000000* 00000000* 00000000* 00000000* 00000000* 00000000* 001&4 <FORSSREC =WSF -FORSSAA =REC_PR9>. - 
00000000* 00000000* 00000000* 00000000* 00000000* 00000000» 001FC <FORSSREC_RSF9=FORSSAA_REC_PRO>, = 
00000000* 00000000* 00000000v 00000000v 00000000* 20214 <FORSSREC_ ~WSU9-FORSSAAy REC_PR9>, = 
<FORSSREC_RSU9-FORSSAA_REC-PRO>, - 

<FORSSREC_WD9-FORSSAA_REC_PR9>, - 

<FORSSREC_RD9-FORSSAA_REC_PRO>. - 

<FORSSREC_WD9-FORSSAA_REC_PRO>, = 


<FORSSREC_WIF9- SAA_REC_PR9>, 
<FORSSREC-RIF9-F ORSSAA_REC PR9> 
<FORS$SIGDIS_JSB-FORSSAA_REC_PRO>, 
<FOR$$SIGDIS~JSB-FORS$$AA_REC-PR9>, 
<FORSSREC_WIC9-FORSSAA_REC_PRO>, - 
<FORSSREC_RIL9-FORSSAA_REC_PR9> 

.EXTRN OTS$_FATINTERR, OTS$_10_CONCLO 

SEXTRN PORSSREC _RKF1, FORSSREC_RKF9 

XTRN FORSSREC-RKU1, FORSSREC-RKU9 

-EXTRN FORSSREC"WXF1, FORSSREC_WXF9 

-EXTRN FORSSREC"WXU1, FORESEES “WXUd 

-EXTRN FORSSREC"WIF1. FORSSREC WIF9 

-EXTRN FURSSREC"RIF1, FORSSREC_RIF9 

-EXTRN FORSSRES“WSN1, FORSSREC_9IL1 

“EXTRN FORSSREC-WIL9. FORSSREC-RIL1 

-EXTRN FORSSREC-RILO 

“WEAK © FORSSUDF-RFO, FORSSUDF_RF1 

-WEAK = FORSSUDF"RF9. FORSSUDF “WFO 

“WEAK © FORSSUDF“WF1. FORSSUDF “WF9 

WEAK FORSSUDF “RUG. FORSSUDF —RU1 

-WEAK — FORSSUDF"RU9. FORSSUDF—WU0 

-WEAK © FORSSUDF—WU1, FORSSUDF—WU9 

-WEAK — FORSSUDF"RLO. FORSSUDF—RL1 

-WEAK © FORSSUDF"RL9. FORSSUDF—WLO 


Sete te Se Se Be Fe Be Se Se Se Ge Be Be 


| 
| 
| 
| 
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1=020 eet) 7a eS Be ee og Pe Cy Ce 9 69) 
.WEAK  FORSSUDF_WL1, FORSSUDF_WL9 
“WEAK —- FORSSUDF =RNO, FORSSUDF -RNO 
“WEAK © FORSSUDF“WNO. FORSSUDF ~WN9 
“WEAK FORSSREC-RSEO, FORSSREC_RSF 1 
“WEAK © FORSSREC-RSF9. FORSSREC_WSFO 
“WEAK —- FORSSREC-WSF1, FORSSRECWSF9 
“WEAK FORSSRECRSUQ, FORSSREC_RSU1 
“WEAK  FORSSREC-RSU9, FORSSREC~WSUO 
“WEAK © FORSSREC-WSU1. FORSSREC WSUS 
“WEAK  FORSSREC-RDO, FORSSREC_RD1 
“WEAK — FORSSRECRD9, FORSSREC WO 
“WEAK  FORSSREC-WD1. FORSS$REC WD9 
“WEAK  FORSSREC-RSLO, FORSSREC_RSL1 
“WEAK © FORSSREC"RSL9, FORS$SREC~WSLO 
“WEAK FORSSREC“WSL1. FORSSREC-WSL9 
“WEAK FORSSREC-RMEQ, FORSSREC_RMF 1 
“WEAK —- FORSSREC-RMF9. FORSSREC_WMF 
“WEAK © FORSSREC~WMF1, FORSSREC_WMF 
“WEAK —- FORSSRECRKFO, FORSSREC-RKUO 
WEAK © FORSSREC~WXFO. FORS$SREC-WXUO 
“WEAK © FORSSRECWIFO, FORSSREC-RIFO 
WEAK FORSSREC-WSNO. FORSSREC-RSNO 
“WEAK FORSSREC“RSN1. FORSSREC_WILO 
“WEAK  FORSSREC~RILO 
0000 00000 FORSSSIGDIS ERR: 
Save nothing 3; 04 
08 FC E8 00002 BBs. =4(CCB), 1$ > 054 
000000006 BF DD 00006 PUSHL #OTS$_I0_CONCLO > 054 
06 11 0000 BRB 2$ : 
000000006 8F DD OOOOE 1S: PUSHL #OTS$_FATINTERR > 0553 
000000006 00 01 FB 00014 2$: CALLS #1, LIBSSTOP : | 
04 00018 RET > 0556) 


; Routine Size: 28 bytes, Routine Base: _FORSCODE + 0228 


on 
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1-02 < , gxgepni3 00: 48:32 


Oi fege te v4.0 
14-Sep-1984 RC 


1 -74 
FORRTL. FORDISPAT.B32;1 
ROUTINE FORSSSIGDIS_JSB : JSB_UDFO NOVALUE = : 


lee 
! FUNCTIONAL DESCRIPTION: 


€ 
es by CLOSE to catch dispatches on a closed unit, which can 
e 


. > 0557 1 

; é B2e8 1 

: 559 1 

> . 0560 1 

; 3 0561 1! 

; 2 Beg 1! 

Fe. 0563 1! 

; 208 0564 1! 

; 509 0565 1! appen if CLOSE is done as part of recursive 1/0. If the 
> 510 0566 1! statement type is not the one used by CLOSE, we have an error 
; S13 0567 1! in the RTL (an invalid statement Bype) « 

: 21g 0568 1! Note that, at the present time, FORTRAN does not permit 
; 3 0569 1! recursive 1/0. 

> 514 0570 1! 

> 515 0571 1 ! FORMAL PARAMETERS: 

; 3 b20¢ 1! 

: Sir 0573 1! NONE 

, Sis 0574 1! 

s 39 0575 1 =! IMPLICIT INPUTS: 

; 520 0576 1! 

3 Sey 0577 1! ISB$SB_STTM_TYPE.rb.r Statement type of 1/0 statement 
;. Jee 0578 1! 

3 Ses 0579 1 ! IMPLICIT OUTPUTS: 

; 526 0580 1! 

g See 0581 1! NONE 

: 526 ba8¢ 1! 

3 Der 0583 1 ! ROUTINE VALUE: 

; Jen 0584 1 ! COMPLETION CODES: 

; 529 0585 1! 

; Sao 0586 1! NONE 

s Sa) 0587 1! 

3, Sie 0588 1 ! SIDE EFFECTS: 

3 339 0589 1! b 

; 534 0590 1! Signals OTS$_IO_CONCLO if the LUB is not open, or 

; 535 0591 1! OTS$_FATINTERR Tf it is. 

; 336 0592 1! 

3 $37 0593 1 !-- 

; 538 0594 1 

; 539 0595 2 BEGIN 

; 540 0596 2 

; «541 0597 2 EXTERNAL REGISTER 

: 542 0598 2 CCB : REF SFORSCCB_DECL; 

; 543 0599 $ 

: 544 0600 IF ( NOT .CCB CLUBSV_OPENED]) 

: 545 0601 2 THEN 

> 546 44 2 t+ : ; 

; 547 0603 2 ! The file must ha: -en closed with 1/0 still active on it. 
>; 548 0604 2 !- 

; 549 0605 SIGNAL_SiOP (OTS$_I0_CONCLO) 

; 550 0606 ELSE 

eee th 0607 te ; 

, Sa 0608 ! This must be an attempt to use an unimplemented feature. It represents 
; 237 set : an internal error in the OTS. 

; 555 0611 SIGNAL_STOP (OTS$_FATINTERR); 

3 336 pele 

a <Bee 0615 2 0 


cc 


| 


FORSSDISPATCH_T 1/0 dispatch tables for FORTRAN AX-11 a? ss-32 V4.0-7 Page 1 
1-020 14-Sep-1984 12:31:49 FORRTL.SRCIJF ORD IS PAT. 8 2:1 (10 
; 558 0614 1 END; !End of FORSS$SIGDIS_JSB 
08 FC AB £8 00000 FORSSS1GD15 JSB: | 
settee’ 1$ ; 0600 
00000000G 8F DD BOR PUSHL #OTSS_ 16_ CONCLO ; 0605. 
06 11 OO000A BRB : 
CO0000000G 8F DD 0009C 1$: PUSHL pee FATINTERR 3; 0611 
000000006 900 01 FB Beets 2$: CALLS LTB$STOP : 
05 0001 RSB 3 0614 | 
; Routine Size: 26 bytes, Routine Base: _FORSCODE + 0244 
st..599 0615 1 END 'End of module 
; 560 0616 
J wet 0617 O ELUDOM 
-EXTRN LIBSSTOP 
; PSECT SUMMARY 
: Name Bytes Attributes 
> .FORSCODE 606 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
yA Fee eg eee Ri) eC eee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: Satta BSYSLIBISTARLET ot 5251 9776 0 0 581 00:01.0 
: FORRTL.OBJJFORLIB.L32;1 711 185 26 52 00:00.6 
3 ~$255$DUA28:CFORRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 
: COMMAND QUALIFIERS 
; a PSS/CUEEKS CETELD AMT TIAL .OPTIAIZE) /WOTRACE/LIS=L1SS:FORO1SPAT/0B)=0B.)$2F ORDISPAT MSRC$:FORDISPAT/UPDATE=(ENH$:FORDISPAT 
‘ Size: 54 pode + 552 data bytes 
; Run Time: 0:10.7 


2 
16- “Sep-1984 00:18:37 


~~ 


_ 


5 heighhes *y 1/0 dispatch tables for FORTRAN 


1-020 


; Elapsed Time: ‘38 ise: -2 
; Lines/CPU Min: 
jg ent A 10061 


; eet Used: 110 pages 
; Compila 


tion Complete 


ee 
16-Sep-1984 00:18:37 
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